home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 70 / MF_UK_70_1.iso / Demos / Agamik BarCoding Demo ƒ / Agamik Barcoder Demo 3.10 / Agamik Barcoder Demo 3.10.rsrc / STR#_4013.txt < prev    next >
Encoding:
Text File  |  1998-08-24  |  2.8 KB  |  165 lines
  1. /_c _d _x get _ ne def /_r _d _x 1 add get cvlit def
  2.  
  3. _r _ ne { _urx _llx sub _ury _lly sub [1 0 0 1 0 0] 
  4.  
  5. [ /save cvx _llx neg _lly neg /translate cvx _c
  6.  
  7. { nc /begin cvx } if
  8.  
  9. _r dup type /stringtype eq{ cvx }
  10.  
  11. { {exec} /forall cvx } ifelse
  12.  
  13. _c { /end cvx } if
  14.  
  15. /restore cvx ] cvx
  16.  
  17. /_fn 12 _n length add string def
  18.  
  19. _y _fn cvs pop
  20.  
  21. /_y _y 1 add def
  22.  
  23. _fn 12 _n putinterval
  24.  
  25. _fn _c false dp
  26.  
  27. _d exch _x 1 add exch put } if } for } for
  28.  
  29. null dp _n _dd /_pd
  30.  
  31. end xput } def
  32.  
  33. /fc { _fm dup concatmatrix pop } def
  34.  
  35. /p { /_fm exch ddef
  36.  
  37. 9 -2 roll _pm translate fc 7 -2 roll _pm scale fc
  38.  
  39. 5 -1 roll _pm rotate fc 4 -2 roll exch 0 ne
  40.  
  41. { dup _pm rotate fc 1 -1 _pm scale fc neg _pm rotate fc}
  42.  
  43. { pop } ifelse dup _pm rotate fc
  44.  
  45. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  46.  
  47. _pm astore fc neg _pm rotate fc
  48.  
  49. _pd exch get /_fdd exch ddef
  50.  
  51. /_pf { save 0 1 _fdd length 1 sub
  52.  
  53. { /_fd exch _fdd exch get ddef _fd 0 2 _fd length 2 sub {
  54.  
  55. gsave 2 copy get dup _ ne { cvx exec _fc }
  56.  
  57. { pop } ifelse 2 copy 1 add get dup _ ne
  58.  
  59. { aload pop findfont _fm patternfill }
  60.  
  61. { pop fill } ifelse grestore pop } for pop } for
  62.  
  63. restore newpath } ddef
  64.  
  65. /_psf { save 0 1 _fdd length 1 sub
  66.  
  67. { /_fd exch _fdd exch get ddef _fd 0 2 _fd length 2 sub
  68.  
  69. { gsave 2 copy get dup _ ne { cvx exec _fc }
  70.  
  71. { pop } ifelse
  72.  
  73. 2 copy 1 add get dup _ ne {
  74.  
  75. aload pop findfont _fm 10 copy 6 npop exch pop patternashow }
  76.  
  77. { pop 7 copy 3 npop exch pop ashow } ifelse
  78.  
  79. grestore pop } for pop } for
  80.  
  81. restore 4 npop newpath } ddef
  82.  
  83. /_lp /none ddef } def
  84.  
  85. /sc { _sm dup concatmatrix pop } def
  86.  
  87. /P { /_sm exch ddef 9 -2 roll _pm translate sc
  88.  
  89. 7 -2 roll _pm scale sc 5 -1 roll _pm rotate sc 4 -2 roll exch 0 ne
  90.  
  91. { dup _pm rotate sc 1 -1 _pm scale sc neg _pm rotate sc }
  92.  
  93. { pop } ifelse dup _pm rotate sc
  94.  
  95. exch dup sin exch cos div 1 0 0 1 0 6 2 roll
  96.  
  97. _pm astore sc neg _pm rotate sc
  98.  
  99. _pd exch get /_sdd exch ddef
  100.  
  101. /_ps { save 0 1 _sdd length 1 sub
  102.  
  103. { /_sd exch _sdd exch get ddef _sd 0 2 _sd length 2 sub
  104.  
  105. { gsave 2 copy get dup _ ne { cvx exec _sc }
  106.  
  107. { pop } ifelse 2 copy 1 add get dup _ ne
  108.  
  109. { aload pop findfont _sm patternstroke }
  110.  
  111. { pop stroke } ifelse grestore pop } for pop } for
  112.  
  113. restore newpath } ddef
  114.  
  115. /_pss { save 0 1 _sdd length 1 sub
  116.  
  117. { /_sd exch _sdd exch get ddef _sd 0 2 _sd length 2 sub
  118.  
  119. { gsave 2 copy get dup _ ne { cvx exec _sc }
  120.  
  121. { pop } ifelse 2 copy 1 add get dup _ ne { aload pop findfont _sm
  122.  
  123. 11 copy 6 npop 3 -1 roll pop patternashowstroke }
  124.  
  125. { pop 8 copy 3 npop ss } ifelse grestore pop } for pop } for
  126.  
  127. restore 5 npop newpath } ddef
  128.  
  129. /_lp /none ddef } def
  130.  
  131. /A { pop } def
  132.  
  133. /nc 3 dict def
  134.  
  135. nc begin
  136.  
  137. /setgray { pop } bind def
  138.  
  139. /setcmykcolor { 4 npop } bind def
  140.  
  141. /setcustomcolor { 2 npop } bind def
  142.  
  143. currentdict readonly pop end
  144.  
  145. currentdict readonly pop end
  146.  
  147. setpacking
  148.  
  149. %%EndProcSet
  150.  
  151. %%EndProlog
  152.  
  153. %%BeginSetup
  154.  
  155. Agamik_cmykcolor /initialize get exec
  156.  
  157. Agamik_Barcoder /initialize get exec
  158.  
  159. %%EndSetup
  160.  
  161. 0 A
  162.  
  163. 0 O
  164.  
  165.